home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 1 / Pier Shareware 1.iso / 007a / courspas.exe / CHAP11.EXE / TEXT1.PAS < prev    next >
Pascal/Delphi Source File  |  1991-01-06  |  1KB  |  38 lines
  1. program LectFichierTexte; {TEXT1.PAS}
  2. uses
  3.   crt;   { unité de Turbo Pascal 6 }
  4.  
  5. const
  6.   nom = 'text1.txt';  { fichier sur disquette }
  7.  
  8. var
  9.   f    : text;         { fichier du prog. }
  10.   ligne: string[70];   { une ligne        }
  11.  
  12. begin
  13.   clrscr;
  14.   writeln('Voici le fichier à lire : ',nom);
  15.   writeln;
  16.   assign(f,nom);    { relier le fichier        }
  17.   {$I-}             { pas de détection d'erreur}
  18.   reset(f);         { ouverture du fichier     }
  19.   {$I+}             { détection d'erreur       }
  20.   if ioResult = 0   { si aucune erreur...      }
  21.   then begin
  22.          while not eof(f) do
  23.          begin
  24.            readln(f,ligne);  { lire une ligne   }
  25.            writeln(ligne);   { écrire une ligne }
  26.          end; { while }
  27.          close(f);        { refermer le fichier }
  28.        end { then }
  29.   else begin
  30.          writeln('Fichier introuvable!');
  31.          writeln('Veuillez vérifier le répertoire!');
  32.        end; { else }
  33.   gotoxy(1,25);
  34.   write('Veuillez appuyer sur la touche <CR>...');
  35.   readln;
  36. end.
  37.  
  38.